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>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Srvol.bl 
> 

> This module contains all the specifications and source code for 

> controlling the Widget Servo Board < i.e., communication 

> protocol, seek and head positioning, spare table lookup, etc. > 
> 

> PROCEDURE SeekC Cylinder : WORD { !!rC } 

> Head : BVTE { IrE > 

> Sector : BVTE I IrF > 

> > 

> PROCEDURE Wat t_xl1s< x : BVTE { \r-i } 

> FUHCTIOH PosHeads( Wait : BOOLEfiN ( !r8/bit 5 > 

> Parent : BVTE { !rB } 

> Cylinder : WORD { Wr-C } 

> Head : BYTE { IrE } 

> Sector : BVTE { IrF } 

> > : BOOLEfiH 

> PROCEDURE SelectHead< Head : BVTE { IrE } ) 

> FUNCTION CalcNagDir< Cylinder : WORD { II rC > > : 

> BOOLEfiH 

> Magnitude : WORD { !r5 } 

> Direction : BVTE { :r9 > 

> FUNCTION FindDlstance< Cylinder : WORD i !!rC } ? : BOOLERN 

> FUNCTION ServoOk : BOOLERN 

> RecalNaqDir : BVTE { IrO > 

> PROCEDURE SelectHead< Head : BVTE { IrE } 

> PROCEDURE RutoJOffset 

> PROCEDURE Chk_Offset 

.LSTOFF 

.FIN 
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> > > > > > > > >>>>>>>>>>>>>>>>>>>>>» 
> 

> Procedure : Seek 
> 

> This procedure accepts cylinder, head, and sector values 

> and then ca 1 1 s pos i t i on heads . 
> 

> Inputs: 

> Cylinder: WORD { ! !rC } 

> Head : BVTE { IrE ) 

> Sector : BVTE { IrF > 
> 

> Outputs: { none } 
> 

> Global Uaribles Changed: 

> Cyl inder. Head, Sector 

> fl I gor { thm : 
> 

> BEOm 



LastSeekfiddress := CurrentSeekRddress 
Disks tat. Parked := False 
IF DiskStat.SeekComplete 



THEH 



I := 4 
WHILE < i > 



> AND mii Pos}tlonHeads< Wait, 

Dinl_Seek, Cylinder, Head, Sector > DO 



IF NOT< Recovery > THEH Abort 
i := i -1 

IF < i = ) 
THEM Abort 
ELSE Ua it up to 1 sec for ServoReadyj. if tiineout Abort 



LcistCyl jnder 
LastHead 
LastSector 
G 1 obQ I Cy { } rider 
13 i oba I Head 
1 oba I Sector 
Sec tor Count := Sector-Count -^ 1 
D i skStat . SeekComp I ete : = True 
DiskStat.OriTrack := True 
END 



:= GlobalCyl inder 
;= GlobalHead 
:= Global Sec tor 

= Cy If rider- 

= Head 

= Sector 



■ > > > > > : 
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Interna! 



Seek : 



Seek_BeTry : 
Seek_Lp : 



Call Ext_Push 

Ld LstJHiCyl,Cyl irider ;save last seek address 

Ld Ls t_LoCM I , Cm I i nder+ 1 

Ld Lst_Head,Head 

Ld LstJSec tor, Sector 

And ! skS ta t , «$FF-Parked 

Tm DiskStat,*SeekComplete ; check for hscid/Qr-m motion 

Jr Z,Seek_iJa!t 

Ld !r1.*4 

find D I SkStat , »$FF-Long_Seek 

Ld !r8,»Maft 

Cal ! PosHeads 

Jr H2,Seek_£nd 

Toi ExcptJStat,*Recoyery 



